code

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

code

Hello,

here is some sample code:

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim docMail, doc As NotesDocument
Dim success As Boolean
Dim collection As NotesDocumentCollection
Dim rtitem As NotesRichTextItem

Set db = session.CurrentDatabase
Set docMail = db.CreateDocument
Set collection = db.UnprocessedDocuments

If (Not collection Is Nothing) Then
Set doc = collection.getFirstDocument
End If

docMail.Form="Memo"
docMail.principal = doc.docAuthor
docMail.SendTo = doc.DistributionList
docMail.Subject = "A new document has been created: " + doc.Title_EN(0)

Set rtitem = New NotesRichTextItem ( docMail, "Body" )
call rtitem.Appendtext("A new document has been created. Click on the link to open the document: ")
Call rtitem.Appenddoclink(doc,"Doc","")

Call docMail.Send( False )
End Sub

Simply use doc.fieldname to add content of your field.
For example doc.Title_EN(0) is one of the form's fields.

Hope this answers your question.

Feedback response number WEBB8M3EY4 created by ~George Pregerosterobu on 09/26/2011